Delphi Programmer's Power Pack/Delphi Volume 1.iso/s_to_z/uback/btest.dfm/btest.txt

Text File | 1996-09-15 | 5KB | 216 lines

object TestBackup: TTestBackup
  Left = 44
  Top = 135
  Width = 526
  Height = 260
  Caption = 'Test UBACKUP component'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  OnShow = FormShow
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 142
    Width = 518
    Height = 89
    Align = alBottom
    Caption = '&Status'
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 20
      Width = 73
      Height = 13
      Caption = 'File in progress '
    end
    object FileInProgress: TLabel
      Left = 88
      Top = 20
      Width = 269
      Height = 16
      AutoSize = False
    end
    object RestZeit: TLabel
      Left = 364
      Top = 44
      Width = 42
      Height = 13
      Caption = '00:00.00'
    end
    object Filecount: TLabel
      Left = 364
      Top = 20
      Width = 57
      Height = 13
      AutoSize = False
      Caption = '0 Files'
    end
    object Prozent: TBiGauge
      Left = 8
      Top = 44
      Width = 349
      Height = 16
      Caption = 'Prozent'
      Min = 0
      Max = 100
      Value = 66
      Margin = 3
      Orientation = 0
      BarColor = clBlue
      BevelSize = 1
      BevelStyle = 0
    end
    object Status: TPanel
      Left = 2
      Top = 68
      Width = 514
      Height = 19
      Align = alBottom
      BevelInner = bvLowered
      BevelOuter = bvNone
      Caption = 'Welcome to the test program for UBACKUP ! (C) UDEEDV Hamburg'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 293
    Height = 142
    Align = alLeft
    Caption = 'Sourcefiles for Backup'
    TabOrder = 1
    object FilesToBackup: TMemo
      Left = 6
      Top = 15
      Width = 279
      Height = 78
      Font.Color = clBlack
      Font.Height = -8
      Font.Name = 'MS Serif'
      Font.Style = []
      Lines.Strings = (
        'c:\*.bat /S')
      ParentFont = False
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 8
      Top = 100
      Width = 277
      Height = 33
      Caption = '&Start Backup process'
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFFFFFFFF333333330000000000033333333377777777777F333
        33333087777777703333333337F777777777F333333330F88888887033333333
        37F333333377F333333330F9988888703333333337F333333377F333333330FF
        FFFFFF803333333337FFFFFFFFF7F33333333000000000003333333337777777
        7777333333333333333333333333333333FF3333333333333333300333333333
        33333333377F333333333333333330033333333333333333377F333333FFFFFF
        FFF330033333300000000033377F3F3337777777773F300303330FBFBFBFBF03
        377F7FF37F333333337F300700330BFBFBFBFB03377777FF7F333333337F3700
        00030FBFBFBFBF033777777F7F333333337F337000030BFBFBFBFB0333777773
        7F333333337F333300330FBFBFBFBF03333377337FFFFF33337F333303330000
        0BFBFB0333337333777773FFFF73333333330FBFB00000333333333373FFF777
        7733333333333000033333333333333337777333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
    end
  end
  object GroupBox3: TGroupBox
    Left = 293
    Top = 0
    Width = 225
    Height = 142
    Align = alClient
    Caption = 'Destination and options for backup'
    TabOrder = 2
    object Label2: TLabel
      Left = 4
      Top = 56
      Width = 149
      Height = 13
      AutoSize = False
      Caption = 'Destination for Restore'
    end
    object Destination: TEdit
      Left = 4
      Top = 16
      Width = 209
      Height = 20
      CharCase = ecLowerCase
      TabOrder = 0
      Text = 'c:\ubacktst'
    end
    object UseCompression: TCheckBox
      Left = 4
      Top = 40
      Width = 117
      Height = 17
      Caption = 'Use Compression'
      State = cbChecked
      TabOrder = 1
    end
    object Button1: TButton
      Left = 4
      Top = 100
      Width = 217
      Height = 33
      Caption = 'Start &Restore process'
      TabOrder = 2
      OnClick = Button1Click
    end
    object RestoreDestination: TEdit
      Left = 4
      Top = 72
      Width = 213
      Height = 20
      TabOrder = 3
      Text = 'c:\tmp'
    end
  end
  object UBack: TUBackup
    Compression = True
    FileList = 'c:\tmp\file.lst'
    BackupOn = 'f:\temp'
    Overwrite = True
    Background = False
    Description = 'Testdatensicherung'
    Percent = 0
    Language = English
    Answer = Yes
    ExternFileList = False
    FilesToBackup.Strings = (
      'c:\backme\*.* /S')
    ArchiveBaseName = 'TBE'
    SelectiveRestore = False
    DiskNo = 0
    RestoreTo = 'c:\demodemo'
    RedirectRestore = False
    StopAtMissingFile = Ask
    OnPercent = UBackPercent
    OnReady = UBackReady
    OnNextFile = UBackNextFile
    OnStartFileScan = UBackStartFileScan
    OnEndFileScan = UBackEndFileScan
    OnNextDir = UBackNextDir
    OnFileFound = UBackFileFound
    Left = 476
    Top = 40
  end
end